home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021d.dsk / DEMO.FLEX TEXT.bas < prev    next >
BASIC Source File  |  2003-06-12  |  634b  |  4 lines
  1. 10  TEXT : HOME : HGR : POKE  -16302,0:D$ =  CHR$(4): PRINT D$"BLOAD PICT.SHAPES": PRINT D$"BLOAD PICT.FLEX TEXT": CALL 24579: PRINT D$"BLOAD PICT.SHRDLU,A$5000":MAX = 150
  2. 20  POKE 230,32: ROT= 0: SCALE= 1: POKE 232,0: POKE 233,80:X = 3:Y = 183:A$ = "  ESC TO RETURN TO MENU.": XDRAW 100 AT X,Y: FOR I = 1 TO  LEN(A$): XDRAW  ASC( MID$ (A$,I,1)) -31: XDRAW 99: NEXT : HCOLOR= 3: HPLOT 10,191 TO 34,191 TO 34,181 TO 10,181 TO 10,191
  3. 40 K =  PEEK( -16384): IF K < >155  THEN  FOR I = 1 TO 99: NEXT : XDRAW 31 AT 0,183: IF K < >155  THEN  FOR I = 1 TO 99: NEXT :CO = CO +1: IF CO <MAX  THEN 40
  4. 50  POKE  -16368,0: PRINT D$"RUN DEMO.MENU"